Imports CapaDeDatos
Public Class nContacto
    Private Contacto As CapaDeDatos.dContacto = New dContacto
    Private Clientes As CapaDeDatos.dCliente = New CapaDeDatos.dCliente
    Private Proveedores As CapaDeDatos.dProveedor = New CapaDeDatos.dProveedor


    Public Function Listar(ByVal CodigoContacto As String, _
                            ByVal CodigoEmpresa As String, _
                            ByVal NombreYApellido As String, _
                            ByVal CodigoTEmpresa As String, _
                            ByVal Direccion As String, _
                            ByVal FechaDeNacimiento As String, _
                            ByVal Mail As String, _
                            ByVal Telefono As String, _
                            ByVal Estado As String) As DataSet
        Return Contacto.BuscarFiltrado(CodigoContacto, _
                                        CodigoEmpresa, _
                                        NombreYApellido, _
                                        CodigoTEmpresa, _
                                        Direccion, _
                                        FechaDeNacimiento, _
                                        Mail, _
                                        Telefono, _
                                        Estado)

    End Function
    Public Function Insertar(ByVal CodigoEmpresa As String, _
                            ByVal NombreYApellido As String, _
                            ByVal TipoEmpresa As String, _
                            ByVal FechaDeNacimiento As String, _
                            ByVal Mail As String, _
                            ByVal Telefono As String, _
                            ByVal Estado As String) As Boolean
        Contacto.Insertar(CodigoEmpresa, _
                        NombreYApellido, _
                        TipoEmpresa, _
                        FechaDeNacimiento, _
                        Mail, _
                        Telefono, _
                        Estado)
    End Function
    Public Function Eliminar(ByVal CodigoContacto As String) As Boolean
        Return Contacto.Eliminar(CodigoContacto)
    End Function
    Public Function Modificar(ByVal CodigoContacto As String, _
                            ByVal CodigoEmpresa As String, _
                            ByVal CodigoTEmpresa As String, _
                            ByVal NombreYApellido As String, _
                            ByVal Direccion As String, _
                            ByVal FechaDeNacimiento As String, _
                            ByVal Mail As String, _
                            ByVal Telefono As String, _
                            ByVal Estado As String) As Boolean
        Contacto.Modificar(CodigoContacto, _
                        CodigoEmpresa, _
                        CodigoTEmpresa, _
                        NombreYApellido, _
                        Direccion, _
                        FechaDeNacimiento, _
                        Mail, _
                        Telefono, _
                        Estado)
    End Function

    Public Function ListarGrid(ByVal CodigoContacto As String, _
                        ByVal CodigoEmpresa As String, _
                        ByVal NombreYApellido As String, _
                        ByVal CodigoTEmpresa As String, _
                        ByVal Direccion As String, _
                        ByVal FechaDeNacimiento As String, _
                        ByVal Mail As String, _
                        ByVal Telefono As String, _
                        ByVal Estado As String) As DataSet


        Dim DtsPrincipal As DataSet
        DtsPrincipal = Contacto.BuscarFiltrado(CodigoContacto, _
                                        CodigoEmpresa, _
                                        NombreYApellido, _
                                        CodigoTEmpresa, _
                                        Direccion, _
                                        FechaDeNacimiento, _
                                        Mail, _
                                        Telefono, _
                                        Estado)

        DtsPrincipal.Tables(0).Columns.Add("Empresa")

        Dim I As Integer

        For I = 0 To DtsPrincipal.Tables(0).Rows.Count - 1
            If CodigoTEmpresa = 1 Then
                Try
                    DtsPrincipal.Tables(0).Rows(I)("Empresa") = Clientes.BuscarNombreCliente(DtsPrincipal.Tables(0).Rows(I)("CodigoEmpresa").ToString).Tables(0).Rows(0)("RazonSocial").ToString()
                Catch ex As Exception
                    DtsPrincipal.Tables(0).Rows(I)("Empresa") = "Cliente no Encontrado"
                End Try
            End If
            If CodigoTEmpresa = 2 Then
                Try
                    DtsPrincipal.Tables(0).Rows(I)("Empresa") = Proveedores.BuscarNombreProveedor(DtsPrincipal.Tables(0).Rows(I)("CodigoEmpresa").ToString).Tables(0).Rows(0)("RazonSocial").ToString()
                Catch ex As Exception
                    DtsPrincipal.Tables(0).Rows(I)("Empresa") = "Proveedor no Encontrado"
                End Try
            End If

        Next

        Return DtsPrincipal


    End Function

End Class
